home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Pascal Super Library
/
Pascal Super Library (CW International)(1997).bin
/
LIBRARY
/
SWDOS12
/
DEVWRITE.ASM
< prev
next >
Wrap
Assembly Source File
|
1994-07-28
|
861b
|
28 lines
;******************************************************************
;* DEVWRITE.ASM *
;* Source file for SoftWeyr enhanced DOS toolbox *
;* version 1.0 *
;* Copyright (c) by SoftWeyr,1994 *
;******************************************************************
MODEL TPASCAL
.DATA
EXTRN DOSError:Word
.CODE
Public StdWrite;
StdWrite Proc Far Device:Word,S:Dword;
Push DS
LDS SI,S
LODSB
MOV AH,0
MOV CX,AX
MOV DX,SI
MOV BX,Device
MOV AH,40H
INT 21H
POP DS
JC @@Error
XOR AX,AX
@@Error: MOV DOSerror,AX
RET
endp
end